. *********** ********* 1c****************** 
************ 

; Copyright ® [11/21/1999] Scenix Semiconductor, Inc. All rights reserved. 

; Scenix Semiconductor, Inc. assumes no responsibility or liability for 
; the use of this [product, application, software, any ©f tteege products] . 
; Scenix Semiconductor conveys no liaeos*, implicitly or otherwise, under 

; any intellectual property rights. 

; Information contained in this publication regarding (e.g.: application, 
; implementation) and the like is intended through suggestion only and may 
; be superseded by updates . Scenix Semiconductor makes no representation 
; or warranties with respect to the accuracy or use of these information, 
; or infringement of patents arising from such use or otherwise. 
. ***********************************#»*•**♦*#******** 
************ 

; Filename : PSK_GEN_2_06 . src 

; Authors: Chris Fogelklou 

; Applications Engineer 

; Scenix Semiconductor, Inc. 

; Revision: 2.06 

; Part: SX2 8AC datecode 992 9AA/ SX52BD datecode AB9919AA 

; Freg : 5 OMhz 

; Compiled using Parallax SX-Key software vl.07 and SASM 1.40 
; Date Writtetts IfelBireinber 15, 1999 
; Last Revised:i S^entoer 14, 1999 
; Program Description: 

; This source code was modified to obey the Scenix Virtual 

Peripherals 

; Guidelines docmweEiti; , Wmr ©.991 

Tbdm "i^^is^riBBt $m vm'k%<t,itR te©' wa tm 'tim SVimiM Modem Demo Board, Rev 

1.2 . 

Creates V.23 or Bili&l@t liftSweK-WKie or Ortgio^tion Mode 
Modulation. Uncomment 

; one of the following lines t© ea^le that type of modulation. 

;BELL202 ; BELL202 uses the same frequencies a« IteBwer mode. It 

is half-duplex. 

; V2 3_0RIGINATE_M0DE 

; V2 3_ANSWER_MODE 

BELL103_ORIGINATE_MODE 

; BELL103_ANSWER_MODE 



The PC interface is set up to operate at laoobps,!*!, 1 with 
hardware flow control. 

; The modulation output is 75bps for V.23 Originate, 1200bps for 

V.23 



; Answer mode 


and 


BELL2 02, 


and 300bps for Belll03 Originate and 


Answer mode . 








; These baud 


rates 


can be 


easily modified by ehiinging defines some 


defines listed below. 






/ 

; Pins Used: 








; PDM_pin 




egu 


ra.O ; D/A output pirn,, ffiiOimect to filter 


circuitry 








; rx_jpiri 




egu 


ra.l ; RS-232 reception pin 


; tx_pin 




egu 


ra.2 ; RS-232 tr«BiSmi-##ioR pin 


; led_pin 




egu 


rb.O ; LED pin... FlftSlieg an LED while 


program is running. 








; hook 


egu 


rb.4 


; drive hook low to go off -hook 


; rts 


equ 


rb . S 


; ±ii<i±«aiiis#i 'imt SX that the PC wants to 



transmit 

; ; data (hardware flow control) 

; ctg. iMpt: f I 4iadie«fc««: tm '9C that the SX is ready 

to 



; Revision History: 

; 2.00 Integrateil' Bm'itA 'Ilsi»ff»#« -ef^te loAtMs Modem Modules and made 

code as modular 

; as possible. 

; Tested: 

; - V.23 Originate Mode with Compaq 1690 Laptop's Internal 

Modem . OK . 

- V.23 tmmmmt li®#t wk%h Ciaipaif 1690 Laptop's Internal Modem. 

OK . 

- SmiX lOS 0!«i|^a«fc# ■i^&m lM,Mk ©sa^pa^- ISSO Laptop ' s internal 

Modem . OK . 

; - Bell 103 Answer Mode with Compag 1690 Laptop's Internal 

Modem . OK . 

; - For all of these tests, the Compaq 1690 Laptop's Internal 

Modem 

; successfully auto-detected the modem type. 

; - Did not test BELL202, but uses same frequencies as V.23 so 

should 

; inherently work. 

; 2.01 Added documentation to ease integration. 

; 2.02 Removed hardware flow control from ISR. Put in main code. 

; 2.03 Changed sendString to match VP Proposal document. Made 

changes to ORG 

; Statements to match VP proposal document. 

; 2.04 Made further changes to the program to match the VP Guideline 

document 

; specifications document. 

; 2.05 Made changes to the frequency definitions to eiasare the code 

works 



with SASM. Also changed the device_id to 'FSKGEN_2'. 
Changed send_string 

routine to work with SX_52 ' s new mode routine (w was getting 
blown away 

before it could be tested) . Tested to work with SX48/52 rev. 

1 in 

SX-Key environment. Tested to work with SX48/52 rev. 1.1 in 
the SASM 

environment. ^TE: If programming witfc S^^N, use a XTAL 
oscillator to 

run the program, rather than the tool, becauae the 
ynthesized frequency 

is not good enough. ALSO NOTE: XTAL circuit on the Scenix 

Modem board 

does not work with the SX48/52 Rev 1.1, It will work with 
Rev 2.0. 

2.06 Added : 

;VPBegin RS232ReceiveVP 

rs232_rx_f lag eqa fliagsO.O; flag that indicates an 

incoming digit 

;VPEnd ; End cut/paste for this Virtual 

Peripheral 

; To obey the Virtual Peripherals Guidelines document. Rev 

. 991 

*************************************************************** 
************ 

***********************************************#*****#*********************** 
*********** 
Target SX 

Uncomment one of the following lines to choose the SIE18AC, SX20AC, SX28AC, 

SX48BD/ES, 

SX4 8BD, SX52BD/ES or SX52BD. For SX4 8BD/ES and SX52BD/ES, uncomment both 
defines, 

SX48_52 and aX4S^52_lS. 

*********** 
SX18_20 
SX28 

SX4 8_52 
SX48_52_ES 

***********************************************##***•************************ 
*********** 

Assembler Used 

Uncomment the following line if using the Parallax SX-Key assembler. SASM 
ssembler 

enabled by default. 

***************************************************************************** 
************ 
SX_Key 



. ******************************** ************************* ******* ******* 



********** 



; Assembler directives: 

; high speed SKterml OBc, turbo mode, 8 -level ©taek, and extended 

option reg. 



by default . 



default . 



SX18/20/28 - 4 pages of program mewory and § lawitai ©f RAM enabled 
SX48/52 - 8 pages of program memory and 16 banks of 1AM enabled by 



.****************** * * * * * * * * ******** •*«*««»** *************** 

********** 



IFDEF SX_Key 

IFDEF SX18_2 
SX-Key 

device 

END IF 
IFDEF SX2 8 
Key 

device 

ENDIF 

IFDEF SX48_52_ES 
for SX-Key 

ELSE 

IFDBP SX4 8_52 

d#vic« 

ENDIF 
ENDIF 

freq 50__000_^000 

IFDEF SX18_20 
SASM 

desria* 

ENDIF 
IFDEF SX2 8 

ENDIF 

IFDEF SX48_52_ES 
for SASM 

device 

ELSE 

IFDEF SX4 8_52 

device 
ENDIF 
ENDIF 
ENDIF 

id ' FSKGEN_2 ' 

reset reset_entry 



; SX-Key Directives 

;SX18AC or SX20AC device directives for 

SX18L , osCXt4 , tuste; tftt^^i^^CpfeiiMUit 

I'ffiati^ 'device directive'© for SX- 

SX28L, oscxt4 , turbo, stackx_optionx 

;SX48BD/ES or SX52BD/ES device directives 

©pi^B* , turbo , #tackx , optioiw 

;SX48/53;/W ||®wf«Ba! fllMctives for SX-Key 
oschs2 , stackx_optionx 



;.SX1.8AC or SUlflifi device directives for 

QMtoS;, turbo , S"taste,, &^tl'mm 

;SX2 8AC device directiims for SASM 
@K23,oschs2 , turbo, stackx, c^tioitie 

;SX4 8BD/ES or SX52BD/ES device directives 

SX52 , oschs , turbo , stackx, optionx 

;SX4 8BD or SX52BD device, directives for SASM 
SX52 , oschs2 , stackx, optionx 



; set reset vector 



,************************************** ****************** ********************* 

************ 

; Macros 



* *************************** IcitirittWItltltie**************************** 
************ 

********** ***************************************ir*****************^ 

********** 

Macro : _bank 

Sets the bank appropriately for all revisions of SX, 

This is required since the bank instruction has only a 3 -bit operand, 
it cannot 

; be used to access all 16 banks of the SX48/52. For this reason FSR.4 
(for SX48/52BD/ES) 

; or FSR.7 (SX48/52bd production release) needs to feis s#t: appropriately, 
depending 

on the bank address being accessed. This ItiMBSo fiwes ttbis. 

So, instead of using the bank instruction to switch between banks, use 
bank instead. 



. **************************#«#*#«#********** **«s*#l;****** 
******** * * 



_bank macro 1 
bank \1 



IFDEF SX48_52 

IFDEF SX4 8_52_ES 
IF \1 & %00010000 
sample) bank instruction 

setb fsr.4 
set by software. 

END If 
ELSE 

IF \1 S %10000®§0 
bank instruction 

setb fsr.7 
set by software. 

ELSE 

clrb fsr.7 
END IF 
ENDIF 
ENDIF 
endm 



;SX48BD/ES and SX52BD/ES (engineering 
; modifies FSR bits S,6 and 7. FSR.4 needs to be 

;SX48BD and SX52BD (protSuction release) 
/modifies FSR bits 4,5 and 6. FSR.7 needs to be 



. ***************************»******«******•♦****#*********************** 
********** 

Macro : _mode 

Sets the MODE register appropriately for all revisions of SX. 

This is required siwse fthe (or M,#) instruction has only a 4- 

bit operand. 

; The SXl 8/2 0/2 SAC u®# ©mly 4 Mt« of fe&e MOOB 3r«gister, however the 

SX48/52BD have 

; the added ability of reading or writing some of the MODE registers, 
and therefore use 



J 



; 5-bits of the MODE refister. The MOV M,W instraetisii modifies all 8- 

bits of the 

; MODE register, so this instruction must be used on the SX48/52BD to 
make sure the MODE 

; register is written with the correct value. This macro fixes this. 

; So, instead of using the MODE or MOV M, # instructions to load the M 
register, use 

; _mode instead. 

********** 
_mode macro 1 

IFDEF SX48_52 

mov w,#\l ; loads the M regist©i: correctly for the SX48BD 

and SX52BD 

raov m, w 

ELSE 

mov m,#\l flfja^s -fete M v^tis^w^ ceweeetly for the SXISAG, 

SX20AC 

;and SX2 8AC 

END IF 
endm 

■ ************ *********************************************************** 

****************** 

; Error generating xmt^&B 

************************************************************************ 
# 

****************** 

tableStart macro ; Generates an error message if code that 

MUST be in 

; the first half of a page is moved into the 

second half . 

if $ & $100 

ERR0E 'Mti0t 1m located in the first half of a page. ' 

endif 

endm 

tableSnd mafflre § ; Generates an error message if code that 

MUST be in 

; the first half of a page is moved into the 

second half. 

if $ & $100 

ERROR 'Must be located in the first half of a page. ' 

endif 

endm 

.*********** * ***************#iit*#####*##«4^«*********«***************** ********* 

************ 

; Data Memory address definitions 

; These definitions ensure tftA p«^per adayftSt is iw«ed tmc banks 0-7 for 2K 

SX devices 

; (SX18/20/28) and 4K SX deiriees !i;iX*t/!5a) . 



. ****************it****1t*«****** ********************* ***mir» 
************ 



IFDEF SX48 52 



global_org = $0A 

bankO_org = $00 

bankl_org = $10 

bank2_org = $20 

bank3_org = $3 

bank4_org = $40 

bankBorg = $50 

bank6_org = $60 

bank7_org = $7 



ELSE 



global_org = $08 

bankO_org = $10 

bankl_org = $30 

bank2_org = $50 

bank3_org = $70 

bank4_org = $90 

bank5_org = $B0 

bank6_org = $D0 

bank7_org = |F0 



ENDIF 

• ***************************************************************************** 
************ 

; Global Register definitions 

; NOTE: Global data memory starts at $0A on SX48/52 and $08 on SX18/20/28. 

J ********* ********1t****4t********************************** ********** « # * * #4 * # * * 
************ 

org global_org 



flagsO eqpi global_org + 

;VPBegin RS232ReceiveVP 

rs232_rx_f lag equ flagsO.O; flag that indicates an incoming 

digit 

;VPEnd ; End cut/paste for this Virtual 

Peripheral 

;VPBegin FSKTransmitVP 

fsk_tx_bit equ flagsO.li bit emtcxmntlf iHsing transmitted by FSK 
transmitters . 

fsk_tx_en equ fliif»0.2; enafeles 'WS& trsmmissioxi 
;VPEnd ; End cut/p«f!te fosr this Virtual 

Peripheral 
;VPBegin 5rasTimerVP 

tiiner_flag equ ilm§0O .^t flag im aet vhen the 5ms timer rolls 

over. 

;VPEnd ; m^/pmwtm fof tbis Virtual 



■Asa.. >'«kJl<. 



Peripheral 



f lagsl 



equ globalorg + 1 



localTempO equ 

localTempl equ 

localTemp2 equ 

isrTen^jO equ 
register. 



global_org + 2 ; temporary storage register 

global_org + 3 ; temporary storage register 

global_org + 4 ; tenvporary storage register 

global_org + 5 ; Interrupt Service Routine's temp 

; Don't use this register in the mainline. 



J ***************************** ****#*1l0*il1r*ic********** 

************ 

; RAM Bank Register definitions 

J ***************************** **1t***4f0*0****it*»*:it'^ 
************ 



. **************** ***#*#*##:»Nt'***#********'**^ 
********** 

; Bank 

. * * * * ***#**##«**ir###4!###*«*^#**** ************** ********** 
********** 

org biaitlt©_otl 
bankO = $ 



. ********«*#«****#il«*******»***«**************************************** 
* * *# ****** 

; Bank 1 

. *******4i*it*%***ii*******1iit<k*** ***************************** ************* 
I 

********** 

org bankl_org 
bankl = $ 

;VPBegin signalCSenerationVP 
signal_gen_bank equ $ 



f req_l 
f req_h 
phase_acc_l 
phase_acc_h 

;VPEnd 
Peripheral 
;VPBegin PdmDA^F 



ds 
ds 



ds 
ds 
1 
1 



1 
1 



; FSK generation variables 



; phase accumulator 



; End cut/paste for this Virtual 



PDM bank 



PDiyiO_acc 
PDMO out 



ds 
ds 



1 
1 



; PDM accumulator 

; qurreaft Wii otatpat (d/a) 



;VPEnd 

Peripheral 

;VPBegin RS232TransmitVP 



RS232 tx bank 



tx_high 

tx_low 

txcount 

tx_divide 

string 

sent 

byte 



ds 
ds 



1 
1 



ds 
ds 



ds 



ds 
1 



; VPEnd 
Peripheral 

;VPBegin RS232ReceiveVP 



; End cut/paste for this Virtual 



;UART bank 

;hi byte to transmit 
; low byte to transmit 
fiiratffijer of bits sent 
;xmit timing (/16) counter 
;the address of the string to be 

;semi-tei^pp!Katry serial register 

; Ind cut/paste fcflr this Virtual 



RS232 rx bank 



rx_count 

rx_divide 

rx_byte 



ds 
ds 



fsuinber of bits received 
;ree«ive timing eounter 

/buffer for incoraifflfp 

; End cut/paste for this virtual 



; VPEnd 
Peripheral 

********** 

; Bank 2 

. ******«**«-**^*************************************** ***********#***«**** 

r 

********** 

org bank2_org 
bank2 m $ 

;VPBegin StnsTimerVP 
timers f 
isr_multiplex ds 1 

timer_div ds 1 ; This timer rolls over every 5ras. Modify 

constant for sampling rate, in 5ms. 

timer_5ms ds 1 ; liia Sms timer. Increments every 5ms if 

timer_div is set up correctly. 



; multitasks the ISR 



; VPEnd 
Peripheral 

;VPBegin FSKTransmitVP 



; End cut/pudte for this Virtual 



fsk tx bank 



equ 



fsk_tx_high ds 1 ;hi byte to transmit 

fsk_tx_low ds 1 ; low byte to transmit 

fsk_tx_count ds 1 ;number of bits sent 

f sk_tx_divide ds I ;xmit timing (/16) counter 

;VPEnd ; End cut/paste for this Virtual 

Peripheiral 

J*******!************ « ** m »-♦'*»'«•• » • • ».■#■«■»;«!•«»* ******************* 
********** 

; Bank 3 

.********** If ♦###*■#<)!*■■#####■♦# ******* «,*##*** ******************* 

********** 

org bank3_org 
banks = $ 



.*********************************************************************** 
********** 

; Bank 4 

. ********-*»«•#*««•«*»♦♦*•«»■»•♦»♦*»*■« **'«.»*#*-W»*»*».*«*»*****^ 
********** 

org bank4_org 

bank4 = $ 

;VPBegin FSKTransmitBuf f eringVP 

push_index ds 1 
pop_index ds 1 
buffer ds 14 

;VPEnd ; End cut/paste for this Virtual 

Periflii^il 

. * * ********************************************************************* 
********** 

; Bank 5 

. * * ********«*****«***#«************************************************* 
********** 

bank5 = $ 

buffer2 iBi if 

;*****■***■« »»#,ff » ««-ifii3ii!«,it •♦:♦♦*« * »*#« *« • #<si***--*» * m* ********************** 
********** 

; Bank 6 

.********* *•«*»* « »»»)»-««*•* ■*■**• » ♦ *«*■* ******** * *# *-.***********♦********* 

********** 

org bank6_org 



banks = $ 



.**********«******.**-« m0m'm»0/0 m * •#».»;*:«».«*« ##-■*•**********#******** 

********** 

; Bank 7 

.***************************«#!*********** 
********** 

org baiik7_or§ 
bank? = $ 



IFDEF SX48_52 

. ********************♦# ***#*****4******** 
********** 

; Bank 8 

.*********************************************************************** 
********** 

org fi# jfeank S aiddresa on SX52 
banks = f 



.*****«»«« * *# •** ********************************************** »#* * «» * ##« 
********** 

; Bank 9 

. * * * * * .# #♦#*■* * *■* # #111 ****************************************** * #* *■«.»-* ♦K* 
********** 

ffO ;bank 9 address on SX52 



bank9 



«•»**»*************************************************************##* 
»♦■#******* 

; Bank A 

J ****■#«»»*«*««**♦-#•*»*******************************************#* 
********** 

org $A0 ;baak & 'Sddress on 
bankA s | 



. *******-**«««**'*-»*.*********»«'*-»#*««*******'***'«»**^ 
********** 

; Bank B 

. ********************************************************************** 
********** 

org $B0 ;bank B address on SX52 



banks 



.*********************************************************************** 
********** 

; Bank C 



. Ik * 4e ie iim it if * * ie it ic ie ic ie ic it ie it ie * it ieie ie -it * it ft mmit^m^ 
*********** 

org $C0 ;,feaiik C :«« 
bankC = $ 



.********************* **.«•#* * «-* * »'« «■« ******************** 

********** 

; Bank D 

.******* #»* #» ## ************************************************* 
********** 

org $D0 ;bank D address on SX52 
bankD = | 

.*********************************************«******«****************** 
********** 

; Bank E 

.****** « *« ** « * * * • «« *«**««*»**** **************** * ** * ********** **#«*«•»#«•* 
********** 

org $E0 /bank E address on SX52 



testes: 



I 'l»nk F 

, ******************************************************************** 
# 

|F0 ;bank F address on SX52 



ENDIF 

.*********************************************************************** 
********** 

; Pin Definitions: These are the pins on the Scenix Modem board. Not 
all are 

; necessary J Check the documentation at the top of this 

; program., 

. *******»«#»#***********«*************»********************************* 
********** 

PDM_jpln r S'/* ^oiitpttt i^ia 

rx_pin equ ra . 1 ; RS-232 reception pin 

tx_pin equ ra . 2 ; RS-2 3 2 transmission pin 

nothing equ ra . 3 ; H/C 

RA_latch equ %11111111 ;S^C18/20/28/48/52 port A latch init 

RA_DDIR equ %11111010 ' ;SXl8/20/28/48/52 port A DDIR value 

RA_LVL #f« %OOO0OOOO ; SX18/20/28/48/52 port A LVL value 



RA_PLP 




equ 


%11111111 ji»»/ail/lf/4i/S2 port A PLP value 


led_pin 




equ 


rb . ; LED pin 


rxa_pin 




equ 


rb.l ; FSK receive pin 


cntrl_l 




equ 


rb . 2 ; drive cntrl_l low to disable the output of the 


LPF 








ring 


equ 


rb.3 


; ring detection pin 


hook 


equ 


rb.4 


; drive hook low to go off -hook 


cntrl_3 




equ 


drive cntrl_3 low to disable the output of the 


HPF 








rts 


equ 


rb.6 


; indicates to the SX that the PC wants to transmit 


data 








cts 


equ 


rb. 7 


; indicates to the PC that the SX is ready to receive 


data 








RB_latch 


equ 


%11011011 ;SX18/20/28/48/52 port B latch init 


RB_DDIR 




equ 


%01101110 ;SX18/20/28/48/52 port B DDIR value 


RB_ST 


equ 


%11111111 ;SX18/20/28/48/52 port B ST value 


RB_LVL 




equ 


%00000000 ;SX18/20/28/48/52 port B LVL value 


RB_PLP 




equ 


tiiiiiiii ;Sxis/ts/2«/4i/ft port B Pi# 


dtmf in_j5in 


equ 


rc . 


; DTMF input pin 


dtmf_f dbk_jpin 


equ 


rc.l ; Negative feedback output for DTMF input 


AtoD_in_pin 


equ 


rc . 2 


; A/D input pin 


AtoD_f dbk_p i n 


equ 


rc.3 ; Negative feedback for A/D input 


imp 450_pin 


equ 


rc . 4 


; Set to an output to set hybrid for 450ohm liiie 



impedance. Tristate otherwise. 

imp_600_pin equ i-c.B } S«t to an output to set hybrid for 600ohm line 
impedance. Tristate otherwise. 

imp_750_pin equ rc . 6 ; Set to an output to set hybrid for 750ohm line 
impedance. Tristate otherwise. 

imp_900_pin equ rc.7 ; Set to an output to set hybrid for 900ohm line 



impedance . 

RC_latch 
RC_DDIR 

RC_LVL 
RC PLP 



Tristate otherwise. 

equ %00001111 

equ %11010101 
equ %llllllll 

equ %00000000 
equ %11111111 



;^18/20/28/48/52 port C latch init 

;SX18/20/28/48/52 port C DDIR value 

,-1X18/20/28/48/52 port C ST value 

;SX18/20/28/48/52 port C LVL value 
;SX18/20/28/48/52 port C PLP value 



IFDEF SX4 8 52 



RD_latch 
RD_DDIR 
RD_ST 
RD_LVL 
RD PLP 



equ 



equ 



;SX48BD/52BD Port initialization values 



to 00000 00 

equ %11111111 

#qu %O0@#O#O0 
equ %11111111 



;gX48/52 port D latch init 

;SX4 8/52 port D DDIR value 

,'SX48/52 port D ST value 

fSX4f/83 port D INh value 
;SX48/52 port D PLP value 



RE_latch 

RE_DDIR 

RE_ST 

RE_LVL 

RE_PLP 

ENDIF 



equ %00000000 

equ %11111111 

equ tllllllll 

equ %00000000 
equ %iiiiiiii 



; 1^48/52 port E latch init 

;SX48/52 port E DDIR value 
;§|t4S/52 port E §T value 

,•0X4 8/52 port E LVL value 
;SX4 8/52 port E PLP value 



. ***********************************************»#* 
I 



; Program constants 

***************************************************************************** 
************ I 

;VPBegin SmsTimerVP 

TIMER_DIV_CONST equ 192 ; This constant = timerFS/200Hz = 

192 

VPEnd ; End cut/paste for this Virtual 

Peripheral I 



The constant = 2*n * Ts * FREQ, 

where n is the number of bits in the phase accumulator for each 
signal generator, Ts is the sample rate, and FREQ is the desired 
output frequency. 

We know that the phase accumulator (^haseAcc) is 16 bits, §(© n = 16 
We will choose a phase updats facg <&{ 7'6 .V^i^ tot tliS PSK ©eneratioa 
closest we can come at this interrupt frequency is 76687Hz 
= 1/ ( [cyclesperinterupt] * [instructiontime] * [ISR passes] ) 
= 1/(163 * 20ns * 4 passes) 

Therefore, the constant = 2'^n * (1/Fs) * FREQ 

Convert the result of the calculation to a hexadecimal number and load 
the upper bytes ^i»fc'& 6-1* ■-fi*s#»lfeee_h "»«f4»^E' feyte 



;VPBegin FSKGenerationVP 

IFDEF SX_Key ; SASM can't automatically genersasle 

; (only 16-bit definitions allowed) 



Fs = 76687 






sampling frequency 


for 


Bits = 65536 








; 2 IS 


is the value 
















f 390_1 




equ 


( (Bits 


* 


390) /Fs) 


& $Off 


i 


channel 


logic ' 


1 ' (mark) 












f3 90_h 




equ 


( (Bits 




SIO) /Fs) 


>> 8 




f450_l 




equ 


( (Bits 


■» 


450) /Fs) 


& $Off 


t 


channel 


logic ' 


0' (space) 










f450_h 




equ 


( (Bit® 




4S0) /f i) 


>■:» i 




f 1300_1 




equ 


( (Bits 


* 


1300) /Fs) 


& $Off 


t 


Bell202 


channel 


logic ' 1 


' (mark) 








f 1300_h 




s«qm. ' 


( (Bits 


* 


1300) /Fs) 


>> 8 




f210 0_l 




equ 


( (Bits 


* 


2100) /Fs) 


& $Off 


1 


Bell202 


channel 


logic ' 


' (space) 








f210 0_h 




equ 


( (Bits 


* 


2100) /Fs) 


>> 8 




f2225_l 




equ 


( (Bits 


* 


2225) /Fs) 


& $Off 


} 


channel 


logic ' 


1 » fMiffc) 












f 2225_h 




equ 


( (Bits 


* 


2225) /Fs) 


>> 8 




f 2025_1 




equ 


( (Bits 


* 


2025) /Fs) 


Sc $Off 


t 


channel 


logic ' 


0' (space) 










f2 025_h 




equ 


( (Bits 


* 


2025) /Fs) 


>> 8 




fl270 1 




equ 


( (Bits 


* 


1270) /Fs) 


& $Off 


r 


mode channel logic ' 1 ' (mark) 











V.23 originaeiag 
V.23 originaftijig 



V.2 3 answer xmAB & 



V.2 3 answer mode & 



Bell 103 answer mode 



Bell 103 answer mode 



Bell 103 originating 



f 1270_h equ ( (Bits * 

f 1070_1 equ ( (Bits * 

mode channel logic '0' (space) 
f 1070_h equ ( (Bits * 

ELSE 

bit defines in SASM) 



f 390_1 






equ $4d 


channel 


logic 


' 1 ' 


(mark) 


f 3 90_h 






equ $01 


f 450_1 






equ $80 


channel 


logic 


' ' 


(space) 


f450_h 






equ $01 


f 1300_1 






equ $56 


channel 


logic 


'1' 


(mark) 


f 1300_h 






equ $04 


f2100_l 






equ $02 


channel 


logic 


' ' 


(space) 


f210 0_h 






equ $07 


f 2225_1 






equ $6d 


logic ' 1 


' (mark) 




f2225_h 






equ $07 


f2 025_l 






equ $c2 


logic ' 


• (apace) 




f 2 025_h 






equ $06 


fl270_l 






equ #3d 


channel 


logic 


'1' 


(mark) 


fl270_h 






equ $04 


f 1070_1 






equ $92 


chaimel logic 


■0' 


(space) 


flOTOh 






equ $03 



ENDIF 

IFDEF V23_ORIGINATE_MODE 
F0_1 equ f450_l 
FO_h equ f45 0_h 
Fl_l equ f390_l 
Fl_h equ f3 90_h 



1270)/Fs) >> 8 

1070) /Fs) & $Off ; Bell 103 originating 

1070) /Fs) » 8 
ttiBA-<S^lculat@i ««^t:aats for SASM (cmly 16- 

; V.23 originating moi^ 

; V.23 originating modse 

; V.23 answer mode & Sell202 

; V.23 answer mode & Bell202 



; Bell 103 answer mode channel 



; Bell 103 answer mode channel 



; Bell 103 originatii^ monte 



; Bell 103 originating tioifte 



*** Sample_rate/12 8 = 9600/128 = 75bps 



f sk_tx_bat»<4Jait « 

ENDIF 

IFDEF V23_ANSWER_MODE 

F0_1 equ f2100_l 
FO_h equ f210 0_h 
Fl_l equ fl3 0_l 
Fl_h equ fl300 h 



*** Sample_rate/8 = MOO/8 
f sk tx b«M4 Mt • 3 



END IF 
IFDEF 



BELL202 
F0_1 equ 
PO_h equ 
Fl_l equ 
Pl_h equ 



f2100_l 
f2100_h 
f 1300_1 
fl300 h 



ENDIF 
IFDEF 



; *** Sample_ratefl 

f sk_tx_baud_bit = 

BELL103_ORIGINATE_MOD1 
F0_1 equ fl070_l 



■3 



FO_h 
Fl_l 
Fl h 



equ 
equ 
equ 



f 1070_h 
f 1270_1 
f 1270 h 



ENDIF 
IFDEF 



; *** Sample_rate/12 8 
7 ~ ^ ~ ' ' 

f sk_tx_ijaL,u<3.^bit « 

BELLI 03 ANSWER MODE 



9600/32 
5 



300bps 



F0_1 

Fl_l 
Fl h 



equ 
eqti 

equ 
equ 



f202 5_l 
£2Q2S_lt 
f 2225_1 
f2225 h 



f sltLtat: baud, bit 



= 9600/32 
5 



300bps 



ENDIF 



; Bad cut/paste for this Virtual 



; VPEnd 
Peripheral 

VPBegin RS232TransmitVP 

VPBegin RS232EeC:eiveVP 
Equates for band rate©: sampling tiiNie of SatBple_rat©/n 



*** Sample_raB*i/* 

baud_bit = 2 
for 960 0bps UAilf 
start_delay « 



; ie: if sample rate for UART is 3 8400, 



4+2+1 



*** Sample_rate/8 



baud_bit = 3 
start_delay = 8+4+1 

*** Sample_ra;fc«/l.i 

baud_bit = 4 
start_delay = 16+8+1 



n tr 



*** Sample_rate/32 

tx_baud_bit = 5 

rx_baud_bit = 5 
rx_start_delay = 



;Kg232 brMMM^te%#£' Sefin.es (l200I^s) 



32+16+1 I . I. II 



*** Sample_rate/64 










baud_bit = 6 
start_delay 




. n 
r 


n 


If 


*** SaiT^le_ra!fe«/12S 










baud_bit = 7 
start_delay « 


■mmm*% \ ; " 




H 





;VPEnd 
jPeEipheral 

; VPBegin luterrtiftSetaf 



; :^nd cut /paste for this Virtual 



int_period equ 163 
(1/50000000) s) = 3.26US 

(l/3.26#»2 - 306.75kHz 



; Gives an interrupt period at 50MHz of (163 * 
; Which gives an interrupt frequency of 



;VPEnd ; End cut/paste for this Virtual 

Peripheral 

IFDEF SX48_52 

.*************************************************************** 
I 

; SX48BD/52BD Mode addresses 

; *0n SX48BD/52BD, most registers addressed via mode are read and write, 
witiL the 

; exception of CMP and WKPND which do an exchange with W. 
.****************************************************** *» * * 

********** 

; Timer (read) addresses 



TCPL_R 




equ 


$02 


;Read Timer Capture register 


low byte 


TCPH_R 




equ 


$02 


;R^ad Timer Capture register 


high byte 


TR2CML_R 


equ 


$02 




;Read Tlrter R2 low byte 




TR2CMH_R 


equ 


$03 




;Read Timer R2 high byte 




TR1CML_R 


equ 


$04 




;Read Timer Rl low byte 




TR1CMH_R 


eqm 


$05 




iMemS. Tiitter Rl hiefli byte 




TCNTB_R 




equ 


$06 


;Read Timer control register 


B 


TCaJTA_R 




equ 


$07 


;Read Timer control register 


A 



; Exchange addresses 
CMP equ $08 

W 



/Exchange Comparator enable/status register with 



WKPMD 



jMmmhmagm MIWCr/»B Interrupts pending wlHi H 



; Port setup (read) addresses 



WKED_R 




equ 


$0A 


falling, 1 


= rising 




WKEN_R 




equ 


$QB 


enabled, 1 


= dipabled 




ST_R 


eqii 


f ©c 




= disabled 








LVL_R 


equ 


$0D 




= disabled 








PLP_R 


equ 


:i§S 




= disabled 








DDIR_R 








; Timer (write) 


■aftftres-ft^g 


TR2CML_W 


equ 


$12 




TR2CMH_W 


equ 


$13 




TR1CML_W 


equ 


$14 




TR1CMH_W 




.115 




TCNTB_W 






flf 






equ 


$17 


; Port tfettip (■nrrite)' adfc®©: 


WKED_W 




equ 


flA 


falling, 1 


= rising 




«KEN_W 




equ 


$1B 


enabled, 1 


= disabled 




ST_W 


equ 


$1C 




1 = disabled 






LVL W 


equ 


$1D 










PLP_W 


equ 


SlE 




1 = disabled 










equ 


$1F 



iftsfead KIlEr/l® me-jgsi^t edge setup, = 
;lead MlW/lS Interrupt edge setB||i, # «> 
^le*d Poirt Schmltt Trigger setup, = enabled, 1 
(•Read Port Schmitt Trigger setup, = enabled, 1 
;Read Port Schmitt Trigger Setup, = ©ftabl#4, 1 
;Read Port Direction 



Write Timer R2 low byte 

Write Timer R2 high byte 

Write Timer Rl low byte 

Write Timer Rl high byte 

; Write Timer control register B 
; Write Timer control register A 



; Write MIWli/RB Interrupt edge setup, = 
; Write MIWtJ/RB Interrupt edge setup, = 
,- write Pcjrt Schmitt Trigger setup, = enabled, 
/Write Port Schmitt Trigger setup, = enabled, 
;Write Port Schmitt Trigger setup, = enafeleti, 
; Write Port Direction 



ELSE 



.*********************************************************************** 
-**»*-•**«** 

; SX18AC/2 0AC/2 8AC Mode addresses 

; *0n SX18/20/28, all registers addressed via mode are write only, with 
the exception of 

; CMP and WKPND which do an exchange with W. 

. ********* ** # * ****************************************** ** * * * 

********** 

; Exchange addresses | 

CMP eqti #08 ;ExeliaBg«» Coff^arator enable/status regl^ef with 

w 

WKPND equ $09 /Exchange MIWU/RB Interrupts pending with W 

; Port setup (read) addresses 

WKED_W equ |0A ; Write MIWU/RB Interrupt edge setup, = 

falling, 1 = riaiiBgr 



WKEN_W equ 

enabled, 1 = disabled 

ST_W equ $0C 

1 = disabled 

LVL_W equ $0D 

1 = disabled 

PLP_W equ f©l 

1 = disabled 

DDIR_W fegtl 

ENDIF 



$0B fWp'itm IttWU/RB latefrupt edge setup, = 

; Write Port Schmitt Trigger setup, = enabled, 
; Write Port Schmitt Trigger setup, = enabled, 
/Iftrite f^rt Sclmittt l^ig^er setup, = enabled, 

i$if' ;»lite Port .Mirectl.&a 



.************************************************** 
************ 

; Program memory ORG define* 

■ ***************************************************************************** 



INTERRUPT_ORG eqU 

zero 

INTERRUPT_0RG2 equ 
location $100 

RESET_ENTRY_ORG 
SUBROUTINES_ORG 
STRINGS_ORG #qu 
PAGE3_0RG equ 
|i!aOT_PROGRAM_ORG equ 



$0 ; interrupt must always start at locati#a 
$100 ; Some more of the ISR is stored in 



$1FB ; The program will jump here on reset. 
$200 ; The subroutines are in this location 
$300 ; The strings are in location $300 
$400 ; Page 3 is en^jty 

$€00 ; 'Kte main program is in the last page of 



equ 
equ 



;***************»»*♦*»*«**•#»«# Beginning of program space 
******************************* 

****************************************************************************** 
************ ' 

. ** it 1t*****1i****1i1r*1i*****1i1i*1i*****mtt**mtl**ic* ************* 
************ 

.*********** ******************************* *****m0m*******************^*****^** 
************ 

org lllf!Bli,©f5'_0il@ ; firsfc loeatloa tn prograta m.&m&xy- 

I __ — — — — — — — — — — — — — —— _ ~ ~ ~ — " 

; Interrupt Serviism Roufiiae 

f ~ " ** 

; Note: ixit@rrupt code must always originate at address $0. 

; Interrupt Pl?e(juettey = (Cyele FrecpjeHey / -(retiw value)) For example: 
; with a retiw value of -163 and an oscillator frequency of 50MHz, this 
; code runs every 3.2 6us. 

ISR ; 3 The interrupt service routine . . . 

;VPBegin PdmDAVP 



; Virtual Peripheral : <Jitter-Free, Detetmiaistic Pulse Density 
Modulation 

; InpBfc vairiafele{s) : PDflO_out: Value from - 255 

corresponding to DC 

; voltage 

; Output variable (s) : Ra . pin is PDM output pin 

; Variable (s) affected: PDMO_acc variable 

; Flag(s) affected: Nonie 

; ProgrsHa Cycl«s: 11 cyel#e (turbo mode) 



_bank PJMJma^' ;1 ; Update the PDM pin 

add PDMO_acc , PDMO_out ;2,3 ; set PDM pin if carry 



snc 
jtap 
: clear_pin 
nop 
nop 
clrb 
jmp 

:set_pin 

setb 
jiap 



: set_pin 



PDM_j)in 
:PDM out 



PDM_j)in 
:PDM out 



;1,4 

;1,5 or 3,7 (carry) 



;i,6 

;1,7 

;3,ii 
;7 

;3,11 



;l,8 



;i,8 



cle** KE»! pin (3ao carry) 



set IBii pin (carry) 



: PDM_OUt 
; VPEnd 
Peripheral 



; 11 PDM cycles total. 

; Snd cut /paste for this Virtual 



; TOTAL CYCLE COUNT: 14 



;VPBegin VPMultithreader 



; Virtual Peripheral Multltasker: 8 tasks 



Input variable (s) : isr_multiplex : variable used to choose threads 
Output variable (s): None, executes the next thread 

Variable (s) affected: isr_multiplex 
Plag(s) affected: None 

Progr.Mt Cyelfi*! I 10 'CireleB {tarbo'' »ode) 



toggle interrupt rates 



_bank isr_multiplex ;1 

inc isr_multiplex ;1 

mov w, isr_multiplex ;1 

and w, #$07 ;1 
The code between the tableBegin and tableEnd statements MUST be 
completely within the first half of a page. The routines 
it is jumping to must be in the same page as this table. 



tafeleStart 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 

ISR_rate/4 
jmp 
jmp 
jmp 

tableEnd 

; VPEnd 

Peripheral 



pc+w 

isr_l 

isr_2 

isr_3 

isr_4 

isr_l 

isr_5 

isr_6 
isr 7 



Start all tables with this macro. 



3,10 cycles 



call twice per rotation for sample rafte 



End all tables with this macro. 

; End cut/paste for this Virtual 



;VPBegin signalGenerationVP j 
sine_table ;3 

; This table is called by the signal_geri routine. 

; It returns a value from the table, located at the location passed to 
; it in W. 

; INPUTS - Index into table in W register 

; OUTPUTS - Value at wtja location in table stored in W 

; REGISTERS VSmiW^ - None 

; PROGRAM CYCLMB - 10 e^lmm. tJt0m call , 



*ad w,#%00 001111 ;1,4 ; keep w within range 

; The code between the tableBegin and tableEnd statements MUST be 
; completely within the first half of a page . 

ta^li»it«rfe ; Start ill tables with this macro. 



:mp 


pc+w 


retw 





retw 


15 


retw 


28 


retw 


37 


retw 


40 


retw 


37 


retw 


28 


retw 


15 


retw 





retw 


-15 


retw 


-28 


retw 


-37 


retw 


-40 


retw 


-37 


r^w 


-Si 


retw 


-15 



tableEnd ; End all tables with this macro. 

;VPEnd ; cut/paste for this Virtual 

Peripheral 



/VPBegin VPMultithreader 
.**************************#****#****** 

; ISR TASKS I 
.************ * * * * ♦ ** ******************** 



isr 1 



; Serviced at ISR rate / 4 



; TOTAL CYCLE COUNT: 14 + 10 = 24 



; VPBegin s ignalS^fterafe iegfSrP 
page signal_gen 
call signal_gen 

; VPEnd 
Perlplieral 

; VPBegin PdmDAVP 

_bank PDiyiO_out 
mov Pli«i_^0ttt , w 
add gOMO^oat ,#128 

; VPEnd 

jmp ISR_out 

befiimtiHj «£' ISR 



; 1 
;26 



;i 



; Ind cait/paste for this virtual 



; 1 store result of table lookup 
;2,31 and center at 2 . 5VDC 
; End cut/paste for this Virtual 



; 7 cycles until wftinline program resS|E*# 
; fixed cycle count = 24+38 = 62 cycles froBi 



sr_2 ; Serviced at ISR rate / 8 



TOIWLi .OfeiiK CDIW: 14 + 10 = 24 



,;VPBegin RS232TransmitVP 

page rs232_transmit 
call rs232_transmit 

; VPEnd 
Peripheral 

/VPBegin RS2 32ReceiveVP 

page rs232_receive 
call rs232_receive 

; VPEnd 
Peripheral 

jraip ISR_out 



;1 

;22 Perform RS232 Transmission 
; End cut/paste for this Virtual 



;l 

;26 

; End cut/paste for this Virtual ' 
;7 cycles until mainline program Beas|B»©i 



execution 
ISR 



; worst case cycle count = 81 from beginning of 



sr 3 



; Sexirleedt aft ISR riift# / 



TOTAL CYCLE COUNT: 14 + 10 



24 



;VPBegin BmsTimerVP 

_bank timers 

inc timer_div ; 1 

mov w, tireer_di-^ ;1 
xor w,#TIMER_DIV_CO]SST 
5ms timeout 

SZ ; 1 

jmp :timer_out ; 1 

inc timer_5ms ; 1 

snz ; 1 

setb timer_flag ;1 

! 

: timer_out 
;VPEnd 
Peripheral 

;VPBegin ledtFlasherVP 

sb timer_5ins.4 ;1 

state . 

setb led__pin 
sfflto ti^r_5ms .4 ; 1 

el*9l led_pin 



; VPEnd 
Peripheral 
jmp 



ISR out 



;l 

Increment the 5ms division timer. 
;1 ; if the timer == the constant used for 



{ 

increment thm 5ms timer 
if the SfflS tiaser rolls over 
{ set the timer flag 



}} 

; End cut/paste for this Virtual 

toggle the LED pin, depending on the timer 
;1 

1,13 

End cut/paste for this Virtual 
7 cycles until mainline program resuines 
; worst case cycle count = 44 from beginning of 



isr 4 



; Seir^leed mt 111 rate / 8 



TOTAL CYCLE COUNT: 14 + 10 = 24 



;VPBegin VPMultithreader2 
_bank; ISR_multiplex 

ISR. 

mov w, ISR_multiplex 
rr wreg 
rr wreg 
rr wri^ 



; 1 Use ISR_multiplex to multiplex this 

I 

SO tbAt r&utiimB' .ia i&r_4 are run afe $€%Bi_ 
;l 

; 1 Divide ISR_multiplex by 2 
; 1 Divide ISR_multiplex by 4 
;1 Divide ISR_multiplex by 8 

; 1 Keep in range of table . 



; The code between the tabl#«ta:rt »ltt€ tablesaii- seatWftsijats MUST be 
; completely within the first half of a page. The routines 
; it is jumping to must be in the same page as this table. 



tableStart 



jmp 






jmp 


ISR_4 


_1 


jmp 


ISR_4_ 


2 




ISR_4^ 






ISR_4^ 


^4 



tableEnd 
;VPEnd 



Begin all tables with this macro. 

;3 

;3,36 



End all tables with this macro. 

; End cut/paste for this Virtual 



isr_4_l ; Serviced at ISR rate / 32 

•>'■ Sn.- — ~ — — 

; TOTAL CYCm COnW: 14 + 10 s 3i 



page fsk_transmit 
call fsk transmit 



;1 
;24 



; VPEnd 
Peripheral 
jmp 



; End cut/paste for this Virtual 
ISR_out ;7 cycles until mainline program fesumes 

;67 cycles used for this entire ISR (worst case) 
m, 4 2 .} s'mwiemi& a* IWR rate / 32 



; TOTAIi CYCLE COUNT: 14 + 10 = 36 



/VPBegin FSKTransmitVP 

page f s]te_9*t*rate« 

call f gk_geiierate 

; VPEnd 
Peripheral 

jmp ISR_out 
execution 



;i 

;21 

; End cut/paste for this Virtual 
;7 cycles until mainline program resiiBies 
; 65 cycles used for this entire ISR (^rste 



case) 

isr 4 3 



; Serviced at ISR rate / 32 



; TOTAL CWmM^ C!0«l«: 14 + 10 = 36 



;VPBegin FSKTransmitBuf f eringVP 

page f sk_load._buf f er 

call f sk_lcjiid_]3mff«r 

; VPEnd 
Peripheral 

jmp ISR_out 
execution 



1 

42 

Ind cut/pjt@te for this Virtual 
;7 'eyele» u«€tl mainline program *e»MRee 



ier * 4 



; 86 cycles used for this entire ISR (worst case 
; Serviced at ISR rate / 32 



; TOTAL CYCLE COUNT: 14 + 10 = 36 



j mp ISR_out 
execution 

; eirapty. . . 



;7 cycles until mainline program resumes 



; 43 cycles used for this entire ISR (worst 



isr 5 



; Serviced at ISR rate / 8 



; vemih' m&M eoeasRT: 14 + lo = 24 



■jmp ISR_out 
execution 



;7 cycles vintil mainline program resumes 



isr_6 ; SSCTrieed mt ISR rate / 8 



; TOTAL CYCLE eOtUT; 14 + 10 » 24 



jmp ISR_out 
93e^#ution 



; 7 cycles until mainline program resumes 



isr_7 ; Serirtced at ISR rate / 8 



; TOTAL CYCLE COUNT: 14 + 10 = 24 



jinp ISR_out ;7 cycles until mainline program resumefl 

execution 



ISR put ; ISR goes here when finished. 



is.E_j8U8dl ; 3 

mov w,#-int_period ;1 ; refresh RTCC on return 

retiw ;3,7 ; return from the interrupt 

; ; = 1/ {int_period*RTCC 

prescaler * 1/5 OMHz ) 

; = l/(163*l*20ns) = 3.26us 
.***************************************************************** 
************ 

; End of the Inteirrupt Service ]imitiQe 

. ******************************************************** ^ 
************ 

.***************************************************************************** 
************ 

j * #♦**♦#»**»** ********************************************************* **»«•«* 
************ 

. ******** *********************************************************** 
************ 

, ******************************************************* *************#**#****'t 
************ 

. *********** ****************************************************************** 
************ 



J It************************************* *#•*•** * * * 

; INTERRUPT SERVICE ROUTINE SUBROUTINES 



; 



rs232 transmit 



; This i« ata asys^ip^setis transmitter for HS-232 transmission. 

; INPUTS : 

; tx_divide . baud_bit - Transmitter only executes when this bit is 

= % 

; tx_high - Part of the data to be transmitted 

; tx_low - Some more of tjie data to be tran«ifcitted 

; tx_count - Counter that counts the number of bits 

transmitted . 

; OOTPDTS : 

; tx_pin - Sets/Clears this pin to accomplish the 

transmission . 

; VARIABLE LENGTH? : YES 

; CYCLES FROM CALL: 22 CYCLES WORST CASE (TURBO) 



;3 

imMk. rs232_tx_bank ;1 



clrb tx_divide . tx_baud_bit ; 1 clear xmit timing count flag 

inc tx_dlvide ; 1 only execute the transmit routine 

STZ ; 1 set zero flag for test 

tx_divide .t3E_baud_bit ;1 every 2*baud_bit interrupt 

test tx_count ; 1 are we sending? 

JZ : tx_done ; 2 if not, go to : receive 

clc ;1 yes, ready stop bit 

rr tx_high ; 1 and shift to next bit 

rr tx_low ; 1 

dec tx_count ; 1 decrement bit counter 

movb tx_pin, /tx_low. 6 ;4,19 output next bit 

st:x_done 

retp ;3,22 cycles from call (worst case) 

;VPEnd ; End cut/paste for this Virtual 

Peripheral 



;VPBegin RS232ReceiveVP 

:Biiii.32 receive 



I 



This is an asynchrofSWias wmemivmr for RS-il2 iriaeeption 
INPUTS : 

rx_j)in - Piti that RS-232 is raxs&i'^m.d on. 
OtTTPUTS : 

rx_byte » The byte received 

rx flag - Set when a byte its received. 

VARIABLE LENGTH? : YES 

CYCLES FROM CALL: 26 CYCLES WORST CASE (TURBO) 



irxbit 



_bank 

clc 

snb 

stc 

test 

sz 

jmp 

mov 

sc 

mov 

tn@v 

jmp 

setb 

d^c 

am 

rr 

snz 



r s 2 3 2jm_bm^ 

rx_jpf » 

rx_count 

:rxbit 
w,#9 

rx count , w 



r3 
•1 



;l 



1 get current rx bit 

1 currently receiving byte? 

1 

;1 if SO, juH^ ahead 
; 1 in ease start , ready 9 bits 
; 1 skip ahead if not start bit 

; 1 it is, so renew bit count 



1 middle of next bit? 

1 yes, ready 1 bit period 



: rxdone 



rx_dividje,irx_start_delay ;2 ready 1.5 bit periods 
de c s z rx_divide 
: rxdone 

rx_divide .,»ic_baud_bit 
rx_count ; 1 last bit 

;1 if not 

rx_byte ; l then save bit 

;1 if SO 

rs232_rx_f lag ;1,22 then set flag 



retp 

;Vtfind 

Peripheral 



; 3 , 2 6 

; total worst case cycle time: 26 cycles 
; End cut/paste for this Virtual 



;V9S@gitt sigpalGenerationVP 

sigBL*3._ffiW!J. 



memory 
register 



; Virtual Peripheral: Signal Generation from lookup table 

; Input variable (s): -freq_l, freq_h = frequency setting 



-sine_table must be a table defined in prograni 
somewhere . 



Output variable (s) 



Variable (s) affected: 
Flag(s) affected: 
Px&QTam Cycles : 



current signal value returned in w 

pha s e_acc_l , phase_acc_h 
None 

26 cycles from call, fixed 



_bank signal_gen_bank 

add phase_acc_l , f req_l 
snc ; 1 

inc phase_acc_h ,- 1 

add jpiat»e_acc_h,freq_h 



table 



swap wreg 

page sine_table 

call sine table 



retp 

; VPEnd 
Peripheral 



le accumulator 



;1 

; 2 , 6 update ] 
;2 

;1 use phase accumulator as index in^0 



;1 

;1 

;10,23 

;3,26 cycles from call, fixed. 

; End cut/paste for this Virtual 



;VPBegin FSKTransmitVP 
fsk transmit 



; This is an asynchronous transmitter for FSK trauismission. 

; INPUTS : 

; f sktxdivide . f sk_tx_baud_bit - Transmitter only 

executes when this bit is = 1 



; fsk_tx_high 

; fsk_tx_low 
transmitted 

; fsk_tx_count 
of bits transmitted. 

; OUTPUTS: 

; fsk_tx_bit 
the transmi s s ion . 

; VARIABI*! IjB^STM?? 

; CYCLES WMM Cimt:^ 



Part of the data to be transmitted 
Some more of the data to be 

Counter that counts t&e inamber 



Sets/Clears this bit to synchronize 



'TSB 

2% CYCiiSS mmsT ■■mm wmm mhh (turbo) 



;3 

sb fsk_tx_en ;1 
retp ; 1 

_bank fsk_tx_bank ;1 

clrb f sk_tx_divide . f sk_tx_baud_bit ;1 clear xmit timing fiouaH: 

flag 

inc f sk_tx_divMe ;1 only exeeute the transmit routiine 

STZ ; 1 set zero flag for test 

SNB f sk_tx_divide . f sk_tx_baud_bit ; 1 every 2*baud_bit interrupt 

fc^t fsk tx cowett ;1 are we sending? 



JZ 

stc 

rr 

rr 

dec 

movb 

: f sk_tx_done 

re^ 

; VPEnd 



: f sk_tx_done 

f sk_tx_high 

f sk_tx_low 
fsk tx count 



;1 yes 



2 if not, go to : receive 

ready stop bit 
1 and shift to next bit 

1 

1 decrement bit counter 



f»le_teX_blllj(fsJl__tx_low.6;4,21 output next bit 



;24 worst case cycles from call 

; End cut/paste for this Virtual 



; JUMP table for interrupt service routine. 

; Must be completely contained in the first half of the first page. 

tableStart ; This macro will generate an error if the 

; code is not within the first half of a page 

;¥t®egin PSKTraJatflBltVP 
fsk_generate jmp _f sk_generate 

;VPBegin FSKTransmitBuf f eringVP 
£sk_l®«i_i9affer jn^ _f sk_load_buf fer 



tableBmft 



This macro will generate an error if the 
code is not within the first half of a p 



; EMPTY CODE SPACE HERE!!! $0A5 - $OFF 



• 111:4k****** ******************* *****4r ************ ******** 
************ 

org INTERRUPT_0RG2 

.*********************************************************************** * * *i* 
************ 



;VPBegin FSKGenerateVP 
_f Sk_generate 



; Virtual Peripheral : FSK Generation 



Input variable (s): fsk_tx_bit 

Output varlalBile (s) I fr*q_l and £req_h registers are undated to 

reflect bit that is currently being trattsmltted. 
Variable (s) affected: freq_l, freq_h 
Flag(s) affected: none 



CYCLES : 22 Cycles worst case 

VARIABLE LENGTH?: YES 



sb fslE_^_eo 
retp 

_bank fsk_txbank 

sb fsk_tx_bit 

jmp :low_bit 
,5Mgh_bit 

_bank signal_gen_bank 

mov f r®^h , #f l_h 

mov f r eq_l , # f 1_1 

jmp :fsk_gen_out 
: low_bit 

_bank signal_gen_bank 

mov f req_h , # f 0_h 
fr©q_l,#fO_l 



g 
1 
1 
1 

;i 
;i 



; VPEnd 
Peripheral 



;3 



;22 cycles worst case 

; End cut/paste for this Virtual 



;VPBegin FSKTransmitBuf feringVP 
fsk load buffer 



;6 cycles from call 



fsk tx 



virtual Peripheral : FSK Transmit Buffering 

Input variable (s): push_index, pop_index, buf f er [] , 



aount 



Output variable (s): push_index, pop_index, fsk_tx_high, 

fsk_tx_low, f sk_tx_count, CTS pin 

Variable (s) affected: push_index, popindex, fsktxhigh, 

fsk_tx_low, f sk_tx_count, CTS pin, W 

Flag(s) affected: none 

CYCLES: 42 Cycles worst case 

VARIABLE LENGTH? s IfBS 



_bank fsk_tx_bank ;1 

test fsk_tx_count ;1 Check the FSK transmitter for IDLE 

SZ ; 1 



set 



]mp :out 

setb fsk_tx_bit 

bank buffer 



;1 



mov 

xor 
snz 
Jltip 

mov 
mov 



w,pop_lndex 

:cmt 

fsr, pop_index 
w, indf 



_bank f @fc_'fc3«_bank 
transmitter . 

mov f sk_tx_high, w 
mov f sk_tx_low, #$7f 
mov f sk_tx_count , #11 

_bank buffer 
inc pop_index 

IFDEF SX28 

setb pop_index . 4 

seperated by $2 

END IF 

IFDEF SX18_20 

setb pop_index . 4 

seperated by $20 
ENDIF 



empty. 



xor 

sz 



: equal 

mov 
mov 
: tx_not_idle 

:OUt 

retp 

;VPEnd 



w,pop_index 
w, push_index 
:out 

mov w,#buffer 
pop_index, w 
push_index, w 



;1 If it is idle, make sure that the tx_bit is 
;1 

;1 If pi4Sh_index =:= pop_index, osAt 

1 
1 
1 

;2,21 Qmt value at pop_index 
;1 and move to W 

; 1 Set up the next byte to be sent bfr tlise WBX. 



;1 
;2 

;2,28 



;l 

;1 Increment the table index. 

;1 In the SX28/SX18, the banks of RAM are 

; in the §X28/§X1§, the banks of RAM are 

;1 If pop_index == push_index, buffer is 
;1 

;l 
;i 



;l 



;1 so restart from zero. 



;l 



;3,42 worst case cycles from call 

; End cut/paste for this Virtual 



. *♦* ******************•# * * ********************************************** **«♦#* 
************ 

oio RESET_ENTRY_ORG 

.***************************************************************************** 
#*«*******## 



tfessBt_entry ; Program starts here on power -up 



page _reset_entry 
jmp _reset_entry 



org SUBROUTINES_ORG 



; Subroutines 



;VPBegin RS232ReceiveVP 

; Subroutine - Get byte via serial port, 

; 
; 

; OUTPUTS: 

; -received byte in byte 
. . 



get_byt# jnb rs232_rx_f lag, $ 

clrb rs232_rx_f lag 
bank rs232 rx bank 



;wait till byte is received 
/reset the receive flag 
; switch to rs232 bank 



mov 



byte, rx_byte 



; store byte (copy using W) 



;Vl»tttd 

PeirijpieiKiil 



retp 



; End cut/paste for this Virtual 



;VPBegin RS232TransmitVP 

; Subroutine - Sesftd byte via serial port 

; INPUTS : 

I w - The byte to be sent via RS-232 



send_byte 
;vi?ait 



bank 



rs2 32 tx bank 



test tx_count 

jnz :wait 

jb rts,$ 

not w 

mov tx_high,w 

setb tx_low.7 

nrav tx count, #11 



; wait 



;wait for not busy' 



for RTS to be low. 

; ready bits (inverse logie) 

; Store data byte 

; set up start bit 

;1 Start + 8 data + 1 stop bit 



;VPEnd 
Peripheral 



RETP 



; leave and fix page bits 
; iteael cat./pmmt.m for this virtual 



VPBegin RS232TransmitVP 
Sxibroutine - Send string pointed to by address in W register 
INPUTS : 

w - The address of a null -terminated string in program 

memory 

OUTPUTS : 

outputs the string via. RS-232 



send_string 



bank rs232_tx_bank 
mov strin@,w 



/Store string address 



mov w, #STRINGS_0RG>>8 ; with indirect addressing 



mov m , w 

mov w, string 

iread 

test w 

snz 

j mp : out 

call sen<i_byte 

_bank rs2 32_tx_bank 
inc string 
j mp : loop 



;read next string character 
; using the mode register 
;are we at the last char? 

;if not=0, skip ahead 
;yes, leave & fix page bits 
;not 0, so send character 

/point to next character 
;loop until done 



mov w,#$iF 
mov m,w 
retp 



; reset the mode register 



; End cut /paste for this Virtual 



VPBegin FSKTransmitVP 
Stifes'eittiae - Send byte via FSK, buffering first 
INPUTS : 

W - The byte to be sent via FSK 



f skBuf SendByte 

mov localTempO,w 

_bank buffer 
swait_empty 

mov w,push_index 
xor w, #buf f er2+15 

snz 

jmp :wait_empty 

f »ir , push_index 



; If the buffer is full, don't 
; push anything else on to it. 

; Just wait until it is empty. 



mov indf , localTenjjO } 
_bank buffer 

inc pushindex ; 
IFDEF SX2 8 

setb push_index.4 

ENDIF 

IFDEF SX18_2 

setb push_index . 4 

ENDIF 
.•out 

retp ; 

;VPEnd ; End cut/paste for this Virtual 

Peril 
i 

; Subroutine - Make byte uppercase 
; INPUTS : 

} byte - "^e TsftB to be converted 

; OUTPUTS: 

; byte - The uppercase byte 



uppercase 
ahead 



stc 

csae byte,#'a' 

RETP 

stc 

sub byte , # ' a ' - ' A ' 

RETP 



;if byte is lowercase, then skip 



(•change byte to uppercase 
/leave and fix page bits 



;VPBegin BmsTimerVP 
de 1 ay_l n__ms 

; This wvim&atine delays 'w'*100 milliseconds, (not exactly, but pretty close) 
; This STxbroutine uses the localTempO register 

; INPUT w - w/100 milliseconds to delay for. 

; OOTPOS Returns after 100 * n milliseconds. 



;loop 



mov 
_bank 
clt 

mov 

clrb 

jnb 

decsz 

jmp 

retp 

;VPEnd 
Peripheral 



localTempO, w 
timers 

timer div ; 



This loop delays for 100ms 



timer_5ms , #-20 ; delay 100ms 
timer_flag ; clear tbe flag and 

timer_flag,$ ; wait until the timer_flag is set. 

loeal'TO^o ; and do thin w times. 

:lO0p 

; End cut/paste for this Virtual 



;VPBegin RS232Traii0«itVP 

************ 
; String Data 

■ ************ ***±*****ie** ***************************************************** 

************ 

org STRINGS_ORG ; This label defines where strings are kept in program 

; all of the following strings must be within the same 

1/2 

; page of program memory for send_string to work, aad 

they 

; must be preceded by this label. 

IFDEF V23_ORIGINATE_MODE 

_fe®ll© dw 13,10, 'V. 23 Transmit (Originate Mode) 2.00',0 

_F|9E #w 13, 10, 'Transmitting 75bps FSK >',0 

EKDIF 

IFDEF V23_ANSWER_M0DE 

_heHo dw 13,10, 'V. 23 Transmit (Answer Mode) 2.00',0 

_FiiK dw 13 , 10, 'Transmitting 12 00bps FSK >',0 

ENDIF 

IFDEF BELL2 02 

_hell© dw 13, 10, 'BELL202 Transmit 2.00',0 

_FSK dw 13, 10, 'Transmitting 1200bps FSK >',0 

uroiF 

IFDEF BEliL103_ORIGINATE_MODE 

_hello dw 13, 10, 'BELL103 Transmit (Originate Mode) 2.00',0 

_FSK dw 13, 10, 'Transmitting 300bps FSK >',0 

ENDIF 

IFDEF BELL103_ANSWER_MODE 

_hello dw 13 , 10 , 'BELL103 Transmit (Answer Mode) 2.00',0 

_FSE aw 13, 10, 'Transmitting 300bps FSK >',0 

dw 13,10, 'Press any key to go of f -hook. . . ' , 

;WSnd ; End cut/paste for this Virtual 

Peripheral 

. **************************************************************** ****mik**1(*it*» 

************ 
org PAGE3_0RG 

J ************************************************* 
'#'* ** ******** 



f MPTY SPACE 



************ 

org MAIN_PROGRAM_ORG 

;********************* 



***«1t#***m********* ******************************* *****tt**1r***** 



; RESET VECTOR 

; ************* 
************ 



;jr7t7c»r7c»»x»xx>c»r>rxx»«:»r«rxxx««x««*«c««x«*«*x**«««««««««««««*««««««««*««««««*« 
r**** 

; Program mmcuticm bgffins here on power-up or after a reset 

• *******^*iii*ii****#^mii************ ************************* *********ii*int* 



********** 



_reset_entry 



!!*■#■*■«♦*♦♦-#*■*♦« 



; Initialise all port configuration 

; *********************************** 



_inode ST W 

BKyV W,#RB_ST 

emtolmi; l = disabled 

mov ! rb , w 

mov w,#RC_ST 

enabled^ X » diScQjled 

Bjov ! rc , w 

IFDEF SX48_52 

mov w,#RD_ST 

enabled, 1 = disabled 

mov !rd,w 

mov w,#RE_ST 

enabled, 1 = disabled 

mov ! re , w 

ENDIF 

_mode 1jOTi_W 

mov W, #RA_LVL 

TTL, 1 = CMOS 

«ov ! ra , w 

mov w,#RB_LVIi 

TTL, 1 = CMOS 

mov ! rb , w 

mov w,#RC_LVL 

TTL, 1 = CMOS 

mov ! rc , w 

IFDEF SX48_52 

mov w, #M>_LV1j 

TTL, 1 = CMOS 

mov ! rd , w 

mov w,#Rl LVL 



/point MODE to write ST register 

; Setup RB Schmitt Trigger, 



; Setup RC Schmitt Trigger, = 



; Setup RD Schmitt Trigger, = 



; Setup RE Schmitt Trigger, = 



;point HODS to write LVL register 

; Setup RA CMOS or TTL levelf , 



; Setup RB CMOS or TTL levels, = 



/Setup RC CMOS or TTL levels, = 



/Setup RD CMOS or TTL levels, = 



/Setup RE CMOS or TTL levels, 



TTL, 1 = CMOS 

mov 

ENDIF 

_mode 
mov 

1 = disabled 

mov 
mov 

1 = disabled 

mov 
mov 

1 = disabled 

mov 

IFDBF SX48_52 

mov 

1 = disabled 

mov 
mov 
1 = disabled 

mov 

ENDIF 

__«ii3de 
mov 



1 = input 
1 = input 



nK>v 
mov 



mov 
mov 



1 = input 

mov 

IFDEF SX4 8_52 

mov 

1 = input 



1 = input 
ENDIF 



mov 



mov 



!re,w 

PLP_W 

w, #RA_PLP 

! ra , w 

w, #RB_PLP 

!rb, w 

!rc, w 

W, #1D_1>LP 

! rd , w 

w, #RE_PLP 

!re, w 

miRJH 

w, #BA_DDIR 

J ra , w 

W, #RB_DDIR 

! rb , w 

w,#RC_DDIR 
!rc, w 

w, #RD_DDIR 
!rd, w 

w, #RE_DDIR 
!re,w 



/point MODE to write PLP register 

/Setup RA Weak Pull-up, = enabled. 



/Setup RB Weak Pull-up, = enabled, 

/Setup RC Weak Pull-up, = enabled, 

/Setup RD Weak Pull-up, = enedjled, 

/Setup RE Weak Pull-up, = enabled. 



/point MODE to write DDIR register 
/Setup RA Direction register, = output. 



/Setup RB Direction register, = output, 

/Setup RC Direction register, = output, 

/Setup RD Direction register, = output, 

/Setup RE Direction register, = output. 



mov 


w,#RA_ 


latch 


/ Initialize 


RA 


data 


latch 


mov 


ra , w 












mov 


w, #RB_ 


latch 


/ Initialize 


RB 


data 


latch 


mov 


rb, w 












mov 


w, #RC_ 


latch 


/ Initialize 


RC 


data 


latch 


mov 


rc , w 












52 














mov 


W,#KD_ 


latch 


/ Initialize 


RD 


data 


latch 


mov 


rd, w 












mov 


w,#RE_ 


latch 


/ Initialize 


RE 


data 


latch 


mov 


re, w 













ENDIF 



.***************************************************************** 



********** 

; Clear all Data RAM locationg 

.******* ***««****c«****>«^*»«************* 



********** 



zero_ram 

IFDEF SX48_52 

mov w,#f©a 

mov fsr,w 

:zero_ram clr ind 

incsz far 

j mp : z e To_wsm 



_bank 

clr 

clr 

clr 

clr 

clr 

clr 

clr 

clr 

elar 

clr 

clr 

clr 

clr 

clr 

clr 

clr 



bankO 

^10 

$11 

$12 

$13 

$14 

$15 

$16 

$17 

$18 

$19 

$la 

$lb 

$lc 

$ld 

$le 

$lf 



;SX48/52 RAM clear routine 

; reset all ram starting at $0A 

;elear using indirect addressing 
; repeat until done 



; clear bank registers 



ELSE 

: zero Ttm 



ENGDlf 



clr fsr 

sb fsr. 4 

setb fsr. 3 

elr ind 

incsz fsr 

jmp : zero_ram 



;SX18/20/28 RAM clear routine 

/reset all ram banks 

;are we on low half of bank? 

;If so, don't touch regs 0-7 

; clear using indirect addressing 

; repeat until done 



. ik********************* ******************** ***************************** 



********** 

; Initialize program/VP registers 

.*********************************************************************** 



J ************************************************************************ 
********** 

; Setup and enable RTCC interrupt, WREG register, RTCC/WDT prescaler 

. * * * * A**-**************************************************************** 
********** 

liI!CC_ON = %10000000 /Enables RTCC at address $01 (RTW hi) 

;*WREG at address $01 (RTW lo) by default 
UTOe ID = %01000000 ;Di@ables RTCC edge interrupt {RTM II hi) 



default 
RTCC_INC_EXT 
transition (ETS 

lo) is default 

RTCC_FE 
{RTE_ES hi) 

is default 
RTCC_PS_ON = 
RTCC PS OFF = 



hi) 



^ge inte«irii»t {Wm_lE lo) enabl#d iSy 
%00100000 ;Sets RTCC increment on RTCC pin 

; *RTCC increment on internal instruction (RTS 
tOOOlOOOO ;Sets RTCC to increment on falling edge 

; *RTCC to increment on rising edge (RT1_ES lo) 



tOOOOOOOO /Assigns prescaler to RTCC (PSA lo) 
%00001000 /Assigns prescaler to WDT (PSA lo) 



PS_000 




%00000000 


RTCC 




1:2, WDT = 1:1 


PS_001 




%OO©0t0§l 




a 


1:4, W5T =1:2 


PS_010 




%00000010 


RTCC 




1:8, WDT = 1:4 


PS_011 




%00000011 


RTCC 




1:16, WDT =1:8 


PS_100 




%00000100 


RTCC 




1:32, WDT = 1:16 


PS_101 




%000001.01 


RTCC 




1:64, WDT = 1:32 


PS_110 




tt)0000110 


•RTCC 




1:128, WDT = 1:64 






%00000111 


RTCC 




1:256, WDT = 1:128 


OPTIONSETUP equ 


RTCC_ 


_PS_0FF|PS_111 




1 


the default option setup for this 














mov 


w, #OPTIONSETUP 




1 


setup option register for RTCC 



iatti@t-r«^S enabled 

mov ! option, w 
jmp ©main 



; and no prescaler. 



.****************************************************************** 

r 

; mm msmmm code 

**** ****■» * * * 



********** 

; Main 

************************************************************************ 
********** 

main 

_bank buffer 
mov w,#buffer 
mpv pu s h_i ndex , w 
mls(¥ pop_index , w 



; set up indexes into the buffer 
; pointers must point to #buffer. 



setb ho&k 

clrb fsk_tx_en 

_bank signal_gen_bank 

clr freq_l 

clr freq_h 

mov phase_acc_h,#128 

setb fsk_tx_bit ; set the fsk_tx_bit (stop bit) 

setb tx_pin ; set the RS-232 transmit pin. 

clrb CTii ; Allow the PC to transmit to the SX Modem. 



mov w,#_hello 
page send_string 
call send_string 



my "Hello!" 



w, #_iastmefeloiie' ; Seai! lastjructieas 

send_string 



; Get a byte from the serial port 
; Go off -hook 



; output answer tone for 3 seconds . 
; set up variables for 2100 Hz. 



and delay for 3 seconds . 



raov 
page 

call send_string 

page get K^fce 

call get_byte 

elrb hc^k 

IFDEP V23_ANSWER_MODE 
setb CTS 

_bank signal_gen_bank 
mov f req_h , #f 2 1 Oh 
mov freq_l,#f2100_l 
mov w,#3 
call @delay_100n_ms 
clrb CTS 

IPDEF BELLI 03_ANSWER_MODB 
setb CTS 

_bank signal_gen_bank 
mov freq^h, #f 2100_h 
mov f req_l , #f 2100_1 
mov w , # 3 
call @delay_10 0n_ms 
eirb CfTS 
ENDIF 

setb fsk_tx_en ; and enable FSK transmission. 

. **************************************************************** 

********** 

; Main Program Loop 

.*********************************************************************** 

********** 
«aln_loop 

;iaKDWARE FLOW CONTROL 
_bank buffer 
mov w,#buffer+9 
m©v w,push_index-w 



; output answer tone for 3 seconds. 
; set up variables for 2100 Em. 

; and delay for 3 seconds . 



get. 



; Check the buffer to see if almost full 

; If push_index>buf f er+9. Carry will be 

; Disable TX from PC if carry set. 
; Enable TX from PC if carry clear. 



snc 

setb CTS 
sc 

clrb CTS 

jnb rs232_rx_f lag,main_loop ; If a byte has been received. 



iSyte Received (RS232) 
page get_byte 
call get_byte 
xor w,#$lb 
j z main 



; 6«t a byte from the serial port 

; Check for escape character. 
; If "ESC", then re-initialize. 



_bank rs232_tx_bank 

mov w,byte ; Put received byte in W 

page f skBuf SendByte ,- and send it via. WBK 

call fskBuf SendByte 
jmp main_loop ; do again. 



■k*ifk**1fk-k*** 

END ;End of program code 

.********************************************************** ******************* 

************ 

.***************************************************************************** 
************ 

. *********************«##*iii*#**********************************************#»* 
************ 

. ******* *******••***************************************************•#**«<***** 
************ 

- *#ifc #******************************************************************* 
***** ******* 

.***************************************************************************** 

r 

************ 



************ 



